K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

1 tháng 12 2015

Số hoàn chình là số có tổng các ước của nó bằng 2 lần số đó hoặc tổng các ước trừ bản thân nó có tổng bằng số đó 
VD : 1 + 2 + 3 = 6 hoặc 1 + 2 + 3 + 6 = 2 . 6
Các nhà thần bí tuyên bố rằng : 6 và 28 là các bộ phận của vũ trụ : thượng đế sáng tạo ra thế giới trong 6 ngày ; mặt trăng quay 1 vòng quanh trái đất mất 28 ngày 
Trường phái pitago cho rằng 6 là số thần thánh nhất ; lí tưởng và đầy đủ nhất ; nó còn là tích các ước hoàn chỉnh 1.2.3 = 6 ; là số hoàn chỉnh nhở nhất
Sau đây là 1 số tính chất của số hoàn chỉnh
1/ Mỗi số hoàn chỉnh là tổng các số tự nhiên liên tiếp 
6 = 1 + 2 + 3
28 = 1 + 2 + 3 + 4 + 5 + 6 +7 
496 = 1 + 2 + 3 + .......... + 30 + 31
8128 = 1 + 2 + 3 + ............. + 126 + 127
2/ Ngoài số 6 thì các số còn lại biểu diễn dưới dạng tổng các lập phương các số lẻ
28 = 1^3 + 3^3
496 = 1^3 + 3^3 + 5^3 + 7^3
8128 = 1^3 + 3^3 + ........... + 15^ 3
3/ Tổng các số nghịch đảo tất cả các ước mỗi số hoàn chỉnh bằng 2
1/1 + 1/2 + 1/3 + 1/6 = 2
1/1 + 1/2 + 1/4 + 1/7 + 1/14 + 1/28 = 2
1/1 + 1/2 + 1/4 + ........ + 1/31 + 1/62 + .....+1/496 = 2

COPY

 là số có tổng ước số bằng chính số đó

 

11 tháng 8 2021

+) Các ước của 10 (không kể chính nó) là 1; 2; 5 và 1 + 2 + 5 = 8 ≠ 10 nên 10 không là số hoàn hảo.

+) Các ước của 28 (không kể chính nó) là: 1; 2; 4; 7; 14 và 1 + 2 + 4 + 7 + 14 = 28 nên 28 là số hoàn hảo.

+) Các ước của 496 (không kể chính nó) là 1; 2; 4; 8; 16; 31; 62; 124; 248 và 1 + 2 + 4 + 8 + 16 + 31 + 62 + 124 + 248 = 496 nên 496 là số hoàn hảo.

Vậy trong các số trên có 28 và 496 là số hoàn hảo.

 

 

22 tháng 7 2023

program so_hoan_hao;

var

       n, tong_uoc, i: integer;

begin

       writeln('Nhap vao mot so nguyen duong n:');

       readln(n);

       tong_uoc := 0;

       for i := 1 to n-1 do

       begin

              if n mod i = 0 then

                     tong_uoc := tong_uoc + i;

       end;

       if tong_uoc = n then

              writeln('YES')

       else

              writeln('NO');

end.

Dãy hoàn hảoTrong một buổi học Toán, An được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các ước trừ nó ra thì bằng chính nó.Ví dụ: Số 6 là số hoàn hảo vì 1+2+3=6            Số 8 không phải là số hoàn hảo vì 1+2+4=7≠8Cho một dãy số gồm n số nguyên a1, a2,…..an. Hãy giúp An đếm xem trong dãy có bao nhiêu số là số hoàn hảo.Dữ liệu vào: Từ file văn bản hoanhao.inp:-         Dòng 1: n số...
Đọc tiếp

Dãy hoàn hảo

Trong một buổi học Toán, An được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các ước trừ nó ra thì bằng chính nó.

Ví dụ: Số 6 là số hoàn hảo vì 1+2+3=6

            Số 8 không phải là số hoàn hảo vì 1+2+4=7≠8

Cho một dãy số gồm n số nguyên a1, a2,…..an. Hãy giúp An đếm xem trong dãy có bao nhiêu số là số hoàn hảo.

Dữ liệu vào: Từ file văn bản hoanhao.inp:

-         Dòng 1: n số nguyên

-         Dòng 2: Các số nguyên a1, a2,…..an.

Kết quả: Ghi ra file văn bản hoanhao.out

-         Dòng 1: Số lượng số hoàn hảo

-         Dòng 2: Tổng của các số hoàn hảo có trong dãy

Nếu không tồn tại số hoàn hảo trong dãy thì ghi Dãy không có số hoàn hảo

1
31 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
//chuongtrinhcon
bool kthh(long long n)
{
    if (n<=1) return(false);
    else
    long long t=0;
    for (long long i=1; i<=n/2;i++)
        if (n%i==0) t=t+i;
    if (t==n) return(true);
    else return(false);
}
//chuongtrinhchinh
int main()
{
    freopen("hoanhao.inp","r",stdin);
    freopen("hoanhao.out","w",stdout);
    cin>>n;
    t=0;
    dem=0;
    for (i=1; i<=n; i++)
    {
        cin>>x;
        if (kthh(x)==true)
        {
            dem++;
            t=t+x;
        }
    }
    cout<<dem<<endl;
    cout<<t;
    return 0;
}

 

17 tháng 2 2022

{PROGRAM bai_tap;
USES crt ;
VAR i , n, t:integer;
BEGIN  
  clrscr;
  Write('Nhap n');Readln(n);
  t:=0;
  For i:=1 to n-1 do
  if n mod i=0 then t:=t+i;
  if t=n then write(n,' la so hoan chinh');
  else Writeln(n,' Khong la so hoan chinh');
  Readlnnline Pascal Compiler.
begin    
  End,
Readlnnline
END.

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n/2; i++) 

if (n%i==0) t=t+i;

if (t==n) cout<<"YES";

else cout<<"NO";

return 0;

}

uses crt;

var n,i,t,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i div 2 do 

  if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.

12 tháng 3 2023

Program HOC24;

var i,t,k,n: integer;

begin

write('Nhap N: '); readln(n);

t:=0; k=0;

while k=0 do

begin

n:=n+1;

for i:=1 to n do if n mod i=0 then t:=t+i;

if t=n then

begin

write(n);

k:=k+1

end else t:=0;

end;

readln

end.

13 tháng 3 2023

Giải cho em bằng chương trình python lớp 10 đc ko ạ